function ca

figHandles = get(0,'Children');
figHandles = findobj('Type','figure');

for ind=1:length(figHandles)
    if figHandles(ind)~=1001
        close(figHandles(ind));
    end
end